home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 23 / AMIGAplus Sonderheft 23 (2000)(Falke)(DE)[!].iso / Updates / Hardware / BlizKick / BKGUI.e < prev    next >
Text File  |  1999-11-06  |  15KB  |  617 lines
  1. -> FILE: ESrc:Own/BKGUI.e          REV: 521 --- BlizKick GUI
  2. /* History
  3. */
  4.  
  5. OPT OSVERSION=37, PREPROCESS
  6.  
  7. MODULE 'tools/EasyGUI', 'tools/exceptions', 'amigalib/lists', 'utility',
  8.        'gadtools', 'libraries/gadtools', 'exec/lists', 'exec/nodes',
  9.        'dos/dos', 'dos/exall', 'dos/dosextens'
  10. MODULE 'intuition/intuition','intuition/sghooks'
  11.  
  12. -> dirwalker flags
  13. ENUM DWF_RECURSIVE=1, DWF_NOSOFT=2, DWF_NOHARD=4
  14.  
  15. ENUM ERR_NONE, ERR_NEW, ERR_STR, ERR_LOCK, ERR_ADO, ERR_NODE, ERR_LIB, ERR_PATT,
  16.      ERR_OK, ERR_CANCEL, ERR_BREAK
  17.  
  18. RAISE ERR_NEW  IF New()=NIL,
  19.       ERR_STR  IF String()=NIL,
  20.       ERR_LOCK IF Lock()=NIL,
  21.       ERR_BREAK IF CtrlC()=TRUE,
  22.   ->    ERR_ADO  IF AllocDosObject()=NIL,
  23.       ERR_LIB  IF OpenLibrary()=NIL
  24.   ->    ERR_PATT IF ParsePatternNoCase()=-1
  25.  
  26. CONST BUF_SIZE=1024, FILENAME_SIZE=300
  27. CONST PATTERNBUFF_SIZE=FILENAME_SIZE*2+2
  28. ENUM DIR_NODE, POS_NODE, VOL_NODE, ASN_NODE, FILE_NODE, MAX_TYPE
  29. CONST DIRSTRLEN=6
  30.  
  31. DEF pathStr[FILENAME_SIZE]:STRING, currPath[FILENAME_SIZE]:STRING,
  32.     fileStr[FILENAME_SIZE]:STRING, patternStr[FILENAME_SIZE]:STRING,
  33.     patternBuff[PATTERNBUFF_SIZE]:ARRAY
  34.  
  35. DEF listGad1, listGad2, listGad3, txtGad1, txtGad2, secs, micros,
  36.     nameList1=NIL:PTR TO lh, nameList2=NIL:PTR TO lh, nameList3=NIL:PTR TO lh,
  37.     posList=NIL:PTR TO lh, txtGadc, txtGvt, txtGv
  38.  
  39. DEF f_force,f_localfast,f_quickboot,f_speedrom,f_hogwaitblit,
  40.     oldSel1=-1, oldSel2=-1, oldSel3=-1
  41.  
  42. DEF gh=NIL:PTR TO guihandle
  43.  
  44. DEF ksList=NIL:PTR TO lh,modList=NIL:PTR TO lh
  45.  
  46. OBJECT mynode
  47.   succ:PTR TO mynode
  48.   pred:PTR TO mynode
  49.   type:CHAR
  50.   pri:CHAR
  51.   name:PTR TO CHAR
  52.   userptr:LONG
  53. ENDOBJECT
  54.  
  55. OBJECT module
  56.   filename:PTR TO CHAR
  57.   enable:CHAR
  58. ENDOBJECT
  59.  
  60. OBJECT kickstart
  61.   filename:PTR TO CHAR
  62.   version:INT
  63.   revision:INT
  64.   size:LONG
  65. ENDOBJECT
  66.  
  67. OBJECT setdata
  68.   kickstart:PTR TO mynode  -> (kickstart)
  69.   modules:lh               -> list of mynode (module)
  70.   switches:LONG
  71. ENDOBJECT
  72.  
  73. /* saved set
  74. [SetName]
  75. kickstart=DEVS:rom40068
  76. module=MoveVBR
  77. module=Preparemul
  78. module=SoftSCSI
  79. switches=$1
  80.  
  81. */
  82.  
  83.  
  84.  
  85. PROC main() HANDLE
  86.   DEF here=NIL
  87.   utilitybase:=OpenLibrary('utility.library', 37)
  88.   gadtoolsbase:=OpenLibrary('gadtools.library', 37)
  89.  
  90.   NEW nameList1, nameList2, nameList3
  91.   newList(nameList1)
  92.   newList(nameList2)
  93.   newList(nameList3)
  94.  
  95.   addNode(nameList1, 'set1', 0, 0)
  96.   addNode(nameList1, 'set2', 0, 0)
  97.   addNode(nameList1, 'set3', 0, 0)
  98.  
  99.   /*
  100.   addNode(nameList2, '34.5   256k', 0, 0)
  101.   addNode(nameList2, '39.106 512k', 0, 0)
  102.   addNode(nameList2, '40.68  512k', 0, 0)
  103.  
  104.   addNode(nameList3, '· SoftSCSI', 0, 0)
  105.   addNode(nameList3, '· PrepareEmul', 0, 0)
  106.   addNode(nameList3, '  Hackdisk', 0, 0)
  107.   */
  108.  
  109.   getksList()
  110.   getmodList()
  111.  
  112.   gui()
  113.  
  114. EXCEPT DO
  115.   IF gadtoolsbase THEN CloseLibrary(gadtoolsbase)
  116.   IF utilitybase THEN CloseLibrary(utilitybase)
  117.   SELECT exception
  118.   CASE ERR_OK
  119.     PrintF('All ok\n')
  120.   CASE ERR_CANCEL
  121.     WriteF('Cancel\n')
  122.   DEFAULT
  123.     report_exception()
  124.   ENDSELECT
  125. ENDPROC
  126.  
  127. PROC getksList() HANDLE
  128.  
  129.   NEW ksList
  130.   newList(ksList)
  131.  
  132.   dirwalker('DEVS:',DWF_RECURSIVE,{getksl_hook})
  133.   
  134. EXCEPT DO
  135.   ReThrow()
  136. ENDPROC
  137. PROC getksl_hook(fib:PTR TO fileinfoblock,data)
  138.   IF fib.entrytype<0
  139.     IF fib.size AND ((fib.size AND $3FFFF)=0) AND (fib.size<=$80000)
  140.       IF isKickfile(fib.filename)
  141.         addNodeSort(nameList2, fib.filename, 0, 0)
  142.       ENDIF
  143.     ENDIF
  144.   ENDIF
  145. ENDPROC
  146. PROC isKickfile(name:PTR TO CHAR)
  147.   DEF buf[2]:ARRAY OF LONG,fh,got
  148.  
  149.   IF (fh:=Open(name,MODE_OLDFILE))
  150.     got:=(Fread(fh,buf,8,1)=1)
  151.     Close(fh)
  152.     IF got AND ((buf[] AND $FFF8FFFF)=$11104EF9) AND (Shr(buf[1]+FileLength(name),16)=$0100) THEN RETURN TRUE
  153.   ENDIF
  154. ENDPROC FALSE
  155.  
  156.  
  157. PROC getmodList() HANDLE
  158.  
  159.   NEW modList
  160.   newList(modList)
  161.  
  162.   dirwalker('DEVS:Modules/',0,{getmodl_hook})
  163. EXCEPT DO
  164.   ReThrow()
  165. ENDPROC
  166. PROC getmodl_hook(fib:PTR TO fileinfoblock,data)
  167.   DEF buf[64]:STRING
  168.   IF fib.entrytype<0
  169.     IF isModulefile(fib.filename)
  170.       StringF(buf,'  \s',fib.filename)
  171.       addNodeSort(nameList3, buf, 0, 0)
  172.     ENDIF
  173.   ENDIF
  174. ENDPROC
  175. PROC isModulefile(name:PTR TO CHAR)
  176.   DEF sl,buf[2]:ARRAY OF LONG
  177.  
  178.   IF (sl:=LoadSeg(name))
  179.     CopyMem(Shl(sl,2)+4,buf,8)
  180.     UnLoadSeg(sl)
  181.     IF buf[]=$707A4E75 THEN RETURN TRUE
  182.   ENDIF
  183. ENDPROC FALSE
  184.  
  185.  
  186. /*
  187.   DW00 - locking of directory failed
  188.   DW01 - AllocDosObject(FIB) failed
  189.   DW02 - Examine() failed
  190.   DW03 - ExNext() failed
  191. */
  192. PROC dirwalker(dirname,flags,hookfunc,userdata=NIL) HANDLE
  193.   DEF dirlock=NIL,fib=NIL:PTR TO fileinfoblock,state,olddir=-1
  194.  
  195.   IF (dirlock:=Lock(dirname, ACCESS_READ))=NIL THEN Raise("DW00")
  196.   IF (fib:=AllocDosObject(DOS_FIB,NIL))=NIL THEN Raise("DW01")
  197.  
  198.   IF Examine(dirlock,fib)=NIL THEN Raise("DW02")
  199.   olddir:=CurrentDir(dirlock)
  200.  
  201.   SetIoErr(0)
  202.   WHILE ExNext(dirlock,fib)
  203.     state:=hookfunc(fib,userdata)
  204.     EXIT state<0
  205.     IF flags AND DWF_RECURSIVE
  206.       IF (fib.entrytype=ST_SOFTLINK) AND (flags AND DWF_NOSOFT)
  207.         state:=0
  208.       ELSEIF (fib.entrytype=ST_LINKDIR) AND (flags AND DWF_NOHARD)
  209.         state:=0
  210.       ENDIF
  211.       IF state AND (fib.entrytype>=0)
  212.         dirwalker(fib.filename,flags,hookfunc,userdata)
  213.       ENDIF
  214.     ENDIF
  215.   ENDWHILE
  216.  
  217.   IF (IoErr()<>ERROR_NO_MORE_ENTRIES) AND (state>=0) THEN Raise("DW03")
  218.  
  219. EXCEPT DO
  220.   IF olddir<>-1 THEN CurrentDir(olddir)
  221.  
  222.   IF fib THEN FreeDosObject(DOS_FIB,fib)
  223.   IF dirlock THEN UnLock(dirlock)
  224.  
  225.   ReThrow()
  226. ENDPROC
  227.  
  228.  
  229. -> GUI definition
  230. CONST SETLIST_W=10, KSLIST_W=8, MODLIST_W=9, LIST_H=10
  231. CONST SETSTR_MAX=16, KSSTR_MAX=16, MODSTR_MAX=16
  232.  
  233. PROC gui_init(in_gh)
  234.   DEF tfile[32]:STRING, cmd[64]:STRING, verstr[256]:STRING, fh, f=FALSE
  235.   gh:=in_gh   -> SET GLOBAL gh!!
  236.  
  237.   ->makeinvstr(strGad1)
  238.   ->makeinvstr(strGad2)
  239.   ->activategad(strGad2,gh.wnd)
  240.   ->setgadgetattrs(txtGadc,[GTTX_JUSTIFICATION,GTJ_CENTER,NIL])
  241.  
  242.   StringF(tfile,'T:BKGuiTmp.\h',FindTask(NIL))
  243.   StringF(cmd,'Version >\s `WHICH BlizKick` FILE FULL',tfile)
  244.   IF SystemTagList(cmd,NIL)=0
  245.     IF (fh:=Open(tfile,OLDFILE))
  246.       IF Fgets(fh,verstr,256)
  247.         IF StrLen(verstr)>0 THEN IF verstr[StrLen(verstr)-1]=10 THEN verstr[StrLen(verstr)-1]:=0
  248.         SetStr(verstr,StrLen(verstr))
  249.         f:=TRUE
  250.       ENDIF
  251.       Close(fh)
  252.     ENDIF
  253.   ENDIF
  254.   StringF(cmd,'DELETE >NIL: \s FORCE',tfile)
  255.   SystemTagList(cmd,NIL)
  256.   IF Not(f) THEN StrCopy(verstr,'info not available')
  257.  
  258.   settxt(gh, txtGvt, 'BlizKick version')
  259.   ->settxt(gh, txtGv, '1.10 (xx.xx.97)')
  260.   settxt(gh, txtGv, verstr)
  261. ENDPROC
  262.  
  263. PROC gui()
  264.   myeasygui({gui_init},'BlizKickGUI 1.0 © 1997 Harry Sintonen',
  265.     [BEVEL,
  266.       ->[EQROWS,
  267.       [ROWS,
  268.         [COLS,
  269.           txtGadc:=[TEXT,'Set',NIL,FALSE,SETLIST_W],
  270.           [TEXT,'Kickstart',NIL,FALSE,KSLIST_W],
  271.           [TEXT,'Modules',NIL,FALSE,MODLIST_W],
  272.           [TEXT,'Switches',NIL,FALSE,0]
  273.         ],
  274.         [COLS,
  275.           [EQROWS,
  276.             listGad1:=[LISTV,{a_list1},NIL,SETLIST_W,LIST_H-4,nameList1,0,NIL,0],
  277.             txtGad1:=[TEXT,NIL,NIL,TRUE,1],
  278.             [COLS,
  279.               [SBUTTON,{b_snew},'New'],
  280.               [SBUTTON,{b_sdel},'Del']
  281.             ]
  282.           ],
  283.           [EQROWS,
  284.             listGad2:=[LISTV,{a_list2},NIL,KSLIST_W,LIST_H-2,nameList2,0,NIL,0],
  285.             txtGad2:=[TEXT,NIL,NIL,TRUE,1]
  286.           ],
  287.           listGad3:=[LISTV,{a_list3},NIL,MODLIST_W,LIST_H,nameList3,0,NIL,0],
  288.           [ROWS,
  289.             [BEVELR,
  290.               [EQROWS,
  291.                 ->[TEXT,NIL,NIL,FALSE,1],[SPACEV],
  292.                 [CHECK,{c_force},'Force',f_force,FALSE],[SPACEV],
  293.                 [CHECK,{c_localfast},'LocalFast',f_localfast,FALSE],[SPACEV],
  294.                 [CHECK,{c_quickboot},'QuickBoot',f_quickboot,FALSE],[SPACEV],
  295.                 [CHECK,{c_speedrom},'SpeedROM',f_speedrom,FALSE],[SPACEV],
  296.                 [CHECK,{c_hogwaitblit},'HogWaitBlit',f_hogwaitblit,FALSE]
  297.                 ->[SPACEV],[TEXT,NIL,NIL,FALSE,1]
  298.               ]
  299.             ],
  300.             txtGvt:=[TEXT,NIL,NIL,FALSE,1],
  301.             txtGv:=[TEXT,'BlizKick 1.10 (04/01/97)',NIL,TRUE,1]
  302.           ]
  303.         ],
  304.         [BAR],
  305.         [COLS,
  306.           [BUTTON,{b_kick},'Kick'],
  307.           [SPACEH],
  308.           [BUTTON,{b_save},'Save settings'],
  309.           [SPACEH],
  310.           [BUTTON,{b_cancel},'Cancel']
  311.         ]
  312.       ]
  313.     ]
  314.   )
  315. ENDPROC
  316.  
  317.  
  318. PROC settxt(gh:PTR TO guihandle, gadget, str, newmax=0) HANDLE
  319.   DEF gad:PTR TO